# name : negbinary regression via proc genmod
# key : negbin.reg.genmod
# contributor: Shuguang Sun
# --
proc genmod data=${1:dtin};
  class ${2:trt01pn}${3: (reference = "Control")};
  model ${4:count} = $2 ${5:covs} / dist=negbin link=log itprint;
  ** estimate 'RR' $2 -1 1 / exp;
  lsmeans $2 / pdiff cl ilink exp;
run;
